﻿''' <summary>
''' 项目的选择
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class ProjectOption
    Private m_SourcesType As Integer = 1 '选择的第一个“点源”
    Private m_Coefficient As Integer = 1 '扩散系数第一个“城市“
    Private m_TerrainOption As Integer = 1 '地形选项“简单地形”
    Private m_SimplenessTerrain As Integer = 1 '简单地形第一个”平地“
    Private m_AutoDistance As Boolean = True '自动距离
    Private m_DisperseDistance As Boolean = True '离散距离
    Private m_Fun As Boolean = True '熏烟
    Private m_BuildingDown As Boolean = False  '建筑物下洗
    Private m_SmokeRelease As Integer = 1 '烟气排放速率
    Private m_WindspeedSearch As Boolean = False  '是否通过风向角度搜索:
    Private m_Weather As Integer = 1 '气象
    Private m_Stabilization As Integer = 1 '稳定度
    Private m_TestSpeed As Integer = 1 '测风高度
    Private m_Schulman As Boolean = False 'Schulman-Scire Algorithm(Non-Regulatory Option)
    Private m_Print As Boolean = False '是否打印数据
    Private m_Fumigation As Boolean = False 'Fumigation Calculation
    Private m_Shoreline As Boolean = False 'Shoreline Fumigation

    ''' <summary>
    ''' 选择的第一个“点源”
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SourcesType() As Integer
        Get
            Return m_SourcesType
        End Get
        Set(ByVal value As Integer)
            m_SourcesType = value
        End Set
    End Property
    ''' <summary>
    ''' 扩散系数第一个“城市“
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Coefficient() As Integer
        Get
            Return m_Coefficient
        End Get
        Set(ByVal value As Integer)
            m_Coefficient = value
        End Set
    End Property
    ''' <summary>
    ''' 地形选项“简单地形”
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TerrainOption() As Integer
        Get
            Return m_TerrainOption
        End Get
        Set(ByVal value As Integer)
            m_TerrainOption = value
        End Set
    End Property
    ''' <summary>
    ''' 简单地形第一个”平地“
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SimplenessTerrain() As Integer
        Get
            Return m_SimplenessTerrain
        End Get
        Set(ByVal value As Integer)
            m_SimplenessTerrain = value
        End Set
    End Property
    ''' <summary>
    ''' 自动距离
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property AutoDistance() As Boolean
        Get
            Return m_AutoDistance
        End Get
        Set(ByVal value As Boolean)
            m_AutoDistance = value
        End Set
    End Property
    ''' <summary>
    ''' 离散距离
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property DisperseDistance() As Boolean
        Get
            Return m_DisperseDistance
        End Get
        Set(ByVal value As Boolean)
            m_DisperseDistance = value
        End Set
    End Property
    ''' <summary>
    ''' 熏烟
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Fun() As Boolean
        Get
            Return m_Fun
        End Get
        Set(ByVal value As Boolean)
            m_Fun = value
        End Set
    End Property
    ''' <summary>
    ''' 建筑物下洗
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property BuildingDown() As Boolean
        Get
            Return m_BuildingDown
        End Get
        Set(ByVal value As Boolean)
            m_BuildingDown = value
        End Set
    End Property
    ''' <summary>
    ''' 烟气排放速率
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SmokeRelease() As Integer
        Get
            Return m_SmokeRelease
        End Get
        Set(ByVal value As Integer)
            m_SmokeRelease = value
        End Set
    End Property
    ''' <summary>
    ''' 是否通过风向角度搜索
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property WindspeedSearch() As Boolean
        Get
            Return m_WindspeedSearch
        End Get
        Set(ByVal value As Boolean)
            m_WindspeedSearch = value
        End Set
    End Property
    ''' <summary>
    ''' 气象
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Weather() As Integer
        Get
            Return m_Weather
        End Get
        Set(ByVal value As Integer)
            m_Weather = value
        End Set
    End Property
    ''' <summary>
    ''' 稳定度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Stabilization() As Integer
        Get
            Return m_Stabilization
        End Get
        Set(ByVal value As Integer)
            m_Stabilization = value
        End Set
    End Property
    ''' <summary>
    ''' 测风高度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TestSpeed() As Integer
        Get
            Return m_TestSpeed
        End Get
        Set(ByVal value As Integer)
            m_TestSpeed = value
        End Set
    End Property
    ''' <summary>
    ''' Schulman-Scire Algorithm(Non-Regulatory Option)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Schulman() As Boolean
        Get
            Return m_Schulman
        End Get
        Set(ByVal value As Boolean)
            m_Schulman = value
        End Set
    End Property
    ''' <summary>
    ''' 是否打印数据
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Print() As Boolean
        Get
            Return m_Print
        End Get
        Set(ByVal value As Boolean)
            m_Print = value
        End Set
    End Property
    ''' <summary>
    ''' Fumigation Calculation
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Fumigation() As Boolean
        Get
            Return m_Fumigation
        End Get
        Set(ByVal value As Boolean)
            m_Fumigation = value
        End Set
    End Property
    ''' <summary>
    ''' Shoreline Fumigation
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Shoreline() As Boolean
        Get
            Return m_Shoreline
        End Get
        Set(ByVal value As Boolean)
            m_Shoreline = value
        End Set
    End Property

    Private m_Presult1 As Boolean = False  '反序列化的EFlex显示
    Private m_Presult2 As Boolean = False
    Private m_Presult3 As Boolean = False
    Private m_Presult4 As Boolean = False
    Property Presult1() As Boolean
        Get
            Return m_Presult1
        End Get
        Set(ByVal value As Boolean)
            m_Presult1 = value
        End Set
    End Property
    Property Presult2() As Boolean
        Get
            Return m_Presult2
        End Get
        Set(ByVal value As Boolean)
            m_Presult2 = value
        End Set
    End Property
    Property Presult3() As Boolean
        Get
            Return m_Presult3
        End Get
        Set(ByVal value As Boolean)
            m_Presult3 = value
        End Set
    End Property
    Property Presult4() As Boolean
        Get
            Return m_Presult4
        End Get
        Set(ByVal value As Boolean)
            m_Presult4 = value
        End Set
    End Property
End Class
